home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jdebug.tcl < prev    next >
Encoding:
Text File  |  1995-02-09  |  1.0 KB  |  40 lines
  1. ######################################################################
  2. # record debugging information
  3. ######################################################################
  4.  
  5. global env J_PREFS
  6. if {![info exists J_PREFS(scrollbarside)]} {set J_PREFS(scrollbarside) right}
  7.  
  8. if [info exists env(JSTOOLS_DEBUGGING)] {
  9. proc j:debug { {string {j:debug called}} } {
  10.   global J_PREFS
  11.   set w .debug_log
  12.   
  13.   if { ! [winfo exists $w] } {
  14.     toplevel $w
  15.     wm minsize . 10 10
  16.     text $w.t -yscrollcommand "$w.sb set" -setgrid true
  17.     scrollbar $w.sb -relief flat -command "$w.t yview"
  18.     pack $w.sb $w.t -side $J_PREFS(scrollbarside) -fill y
  19.   }
  20.   
  21.   set level [expr [info level] - 1]
  22.   $w.t insert end "$string\n"
  23.   switch -exact -- $level {
  24.     0 {
  25.       $w.t insert end "in top level.\n"
  26.     }
  27.     1 {
  28.       $w.t insert end "in `[info level -1]'.\n"
  29.     }
  30.     default {
  31.       $w.t insert end "in `[info level -1]'\n"
  32.       $w.t insert end "  called from `[info level -2]'.\n"
  33.     }
  34.   }
  35.   $w.t yview -pickplace end
  36. }
  37. } else {
  38.   proc j:debug args {}
  39. }
  40.